home *** CD-ROM | disk | FTP | other *** search
/ The AGA Experience 3 / AGA Experience Volume 3 (1997)(NFA - SAdENESS)[!].iso / software / utilities / demos / tp5edemo / install < prev    next >
Encoding:
Text File  |  1997-01-26  |  22.0 KB  |  829 lines
  1. ; Installation script for TurboPrint Professional 5.01 DEMO 
  2. ; (C) 1996,97 IrseeSoft
  3. ;
  4. ;
  5. ; $VER: TurboPrint Professional 5.01 DEMO (07.01.97) 
  6. ;
  7. ;
  8. ;   "Install TurboPrint"         operationMode = 0
  9. ;   "Update TurboPrint"          operationMode = 1
  10. ;   "Remove TurboPrint"          operationMode = 2
  11. ;   "Query TurboPrint Version"   operationMode = 3
  12. ;
  13.  
  14.  
  15. ; String constants section. All messages and strings appear in this section
  16. ; for easier translation into foreign languages.
  17.  
  18. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  19. ;
  20. ; LANGUAGE SECTION
  21. ;
  22. ; to support more than only one language, there is a special section for
  23. ; each supported language.
  24. ;
  25.  
  26. (if (<> @language "english")
  27. ((if (<> @language "deutsch")
  28.  ( set @language "english")
  29.  )
  30. ))
  31.  
  32. (if (= @language "deutsch")
  33.  (
  34.    (set #graphics-publisher "GrafikPublisher")
  35.    (set #druck-manager "DruckManager")
  36.    (set #read-me "LiesMich")
  37.    (set #extra-personalisierung "extra/personalisierung")
  38.  
  39.    (set #tp-version "TurboPrint Professional 5.01 DEMO (07.01.97) " )
  40.  
  41.    (set #wrongversion
  42.       (cat "Achtung! Es ist eine alte Version des Programmes 'Installer' "
  43.            "auf Ihrem Amiga!\n\nDie Installation benötigt mindestens Installer V43.3. "
  44.            "Dieser befindet sich auf der Diskette.\n\n"
  45.            "Falls Sie das Utility MCP installiert haben, müssen Sie den Installer von Diskette "
  46.            "auf Ihren Amiga kopieren oder MCP abschalten."
  47.       )
  48.    )
  49.  
  50.    (set #introduction
  51.       (cat "\nInstallation von TurboPrint Professional 5.01 DEMO \n"
  52.              "    Copyright © 1996,97 IrseeSoft SPCS\n\n"
  53.            "Bitte wählen Sie:\n\n"
  54.       )
  55.    )
  56.  
  57.    (set #introduction-help
  58.       (cat "Neu installieren von TurboPrint:\n"
  59.            "Die TurboPrint Software wird auf Ihre Festplatte kopiert. "
  60.            "Wählen Sie diese Option, falls noch keine ältere Version "
  61.            "von TurboPrint auf Ihrer Festplatte installiert war.\n\n"
  62.        "Update installieren:\n"
  63.            "Eine bereits auf der Platte befindliche alte Version von "
  64.            "TurboPrint wird durch TurboPrint Professional 5 ersetzt. "
  65.            "Dazu werden nicht mehr benötigte Dateien der alten Version "
  66.            "gelöscht.\n\n"
  67.            "Entfernen von der Platte:\n"
  68.            "Das TurboPrint Verzeichnis wird von der Platte gelöscht, "
  69.            "Einträge in der user-startup und im WBStartup-Verzeichnis "
  70.            "werden entfernt.\n\n"
  71.            "Version:\n"
  72.            "Die Versionsnummern von Kickstart, Workbench und TurboPrint "
  73.        "werden angezeigt.\n\n"
  74.       )
  75.    )
  76.  
  77.    (set #need-os2
  78.       (cat "\nTurboPrint Professional 5 benötigt Kickstart 2.04 oder höher\n"
  79.            "Um TurboPrint Professional 5 zu verwenden, müssen Sie Ihren "
  80.            "Amiga auf Betriebssystem 2.04 (oder 3.1) umrüsten.\n"
  81.            "Umrüstkits (Kickstart-ROM + Workbench-Disketten) "
  82.        "sind im Fachhandel oder Versandhandel erhältlich.\n"
  83.        "Als Übergangslösung empfehlen wir die Verwendung von "
  84.            "TurboPrint 3.0.\n"
  85.       )
  86.    )
  87.  
  88.    (set #install "Neu installieren von TurboPrint")
  89.    (set #update  "Update installieren")
  90.    (set #remove  "Entfernen von der Platte")
  91.    (set #version "Versionsnummer anzeigen")
  92.  
  93.    (set #path-prompt0 (cat "In welchem Verzeichnis soll das TURBOprint-Verzeichnis "
  94.               "erstellt werden?")
  95.    )
  96.  
  97.    (set #path-prompt1 (cat "Wo befindet sich das TURBOprint-Verzeichnis, "
  98.               "in welches das Update installiert werden soll?")
  99.    )
  100.  
  101.    (set #path-prompt2 (cat "Wo befindet sich das TURBOprint-Verzeichnis, "
  102.               "das entfernt werden soll?")
  103.    )
  104. ; additional help to the built-in one
  105.    (set #generic-help
  106.       (cat "Bitte lesen Sie auch die ReadMe-Datei auf dieser Diskette!\n"
  107.       )
  108.    )
  109.  
  110.    (set #which-printer
  111.       (cat "Bitte wählen Sie Ihren Drucker aus\n(oder wählen Sie"
  112.            "'Hilfe', falls Ihr Drucker nicht aufgelistet ist)\n")
  113.    )
  114.    (set #help-printer
  115.       (cat "Falls Ihr Drucker nicht namentlich aufgelistet ist, "
  116.            "sehen Sie bitte in Ihrem Drucker-Handbuch nach, welche "
  117.            "Emulationen Ihr Drucker unterstützt und wählen den "
  118.        "entsprechenden TurboPrint-Treiber "
  119.        "(z.B. Epson LQ2550 -> Epson_LQ,SQxx50 in TurboPrint) "
  120.        "oder wählen Sie einen der folgenden Einträge: \n"
  121.        "'.24-Nadel', '.9-Nadel', '.Laser', "
  122.        "'.Tinte-HP-kompatibel', '.Tinte-Epson-kompatibel'\n\n"
  123.        "Sie können auch nach der Installation jederzeit weitere "
  124.            "Treiber auswählen.\n\n" )
  125.    )
  126.  
  127.    (set #another-printer
  128.       (cat "Wollen Sie einen weiteren Drucker installieren?\n"
  129.            "Bisher installierte Drucker:\n\n" )
  130.    )
  131.  
  132.    (set #ask-priyes "Ja")
  133.    (set #ask-prino "Nein")
  134.  
  135.    (set #remove-drivers
  136.       (cat "\nSie haben 'TurboPrint von der Platte entfernen' gewählt.\n"
  137.            "Dabei wird die TurboPrint-Schublade komplett von der Festplatte "
  138.            "gelöscht. Bitte vergewissern Sie sich, ob sich darin noch "
  139.            "von Ihnen benötigte Programme oder Dateien befinden!\n"
  140.       )
  141.    )
  142.  
  143.    (set #update-drivers
  144.       (cat "\nBeim Update werden alle Dateien gelöscht, die "
  145.            "sich momentan in den Verzeichnissen "
  146.            "'Printers', 'Configs' und 'Turbo' innerhalb der TurboPrint "
  147.            "Schublade befinden.\n"
  148.            "z.B. auch alte Druckertreiber und Konfigurationsdateien.\n" 
  149.            "Falls Sie das nicht wollen, wählen Sie bitte "
  150.            "'Installation abbrechen'."
  151.       )
  152.    )
  153.  
  154.    (set #removing-drivers
  155.       (cat "\nTurboPrint wird von Ihrer Festplatte entfernt..."
  156.       )
  157.    )
  158.    (set #removing-TurboPrefs
  159.       (cat "Falls die startup-sequence/user-startup durch das TurboPrint "
  160.            "Installationsprogramm geändert wurde, wird dies nun "
  161.            "automatisch rückgängig gemacht."
  162.       )
  163.    )
  164.    (set #adding-TurboPrefs
  165.       (cat "Die user-startup Datei wird um den Befehl \n"
  166.            "'Assign TurboPrint: <pfad>:TurboPrint' \n"
  167.            "erweitert."
  168.       )
  169.    )
  170.  
  171.    (set #ask-wbstart20
  172.     (cat "Sie können TurboPrint beim Rechnerstart automatisch installieren "
  173.          "lassen. Dazu wird ein Startprogramm in die WBStartup-Schublade "
  174.          "kopiert.\n"
  175.      "Sie können den Autostart jederzeit wieder entfernen, indem Sie "
  176.          "das Icon 'TurboStart' aus der WBStartup-Schublade herausnehmen.\n"
  177.     )
  178.    )
  179.    (set #wbstart-help
  180.     (cat "Autostart installieren:\n"
  181.          "Beim Einschalten des Rechners oder nach einem Reset wird "
  182.          "TurboPrint automatisch geladen. Dies ist sinnvoll, wenn "
  183.          "Sie meistens TurboPrint-Treiber anstelle der Workbench-Druckertreiber "
  184.          "verwenden wollen. Um wieder auf die Workbench-Treiber "
  185.          "zurückzuschalten, verwenden Sie das Programm 'NoTurbo'.\n\n"
  186.          "Kein Autostart:\n"
  187.          "TurboPrint muß nach dem Einschalten mit Hilfe von TurboPrefs "
  188.          "geladen werden. Diese Option ist sinnvoll, wenn Sie "
  189.          "in der Regel mit den Workbench-Treibern arbeiten und nur "
  190.          "bei Bedarf auf die TurboPrint-Treiber umschalten wollen.\n\n"
  191.     )
  192.    )
  193.  
  194.    (set #ask-wbyes "Autostart installieren" )
  195.  
  196.    (set #ask-wbno "Kein Autostart" )
  197.  
  198.    (set #ask-printmanager 
  199.     (cat "Wollen Sie das Grafik Anzeige- und Druckprogramm "
  200.          "Grafik-Publisher installieren?" 
  201.     )
  202.    )
  203.  
  204.    (set #ask-pmyes "Grafik-Publisher installieren" )
  205.  
  206.    (set #ask-pmno "Nicht installieren" )
  207.  
  208.    (set #ask-pictures 
  209.     (cat "Wollen Sie die Demo-Bilder auf die Festplatte kopieren?" )
  210.    )
  211.  
  212.    (set #ask-piyes "Bilder kopieren" )
  213.  
  214.    (set #ask-pino "Nicht kopieren" )
  215.  
  216.    (set #version-info "\nInformation über Ihr System:\n")
  217.    (set #system-version-info "Kickstart %ld.%ld, Workbench %ld.%ld\n")
  218.  
  219.  
  220.    (set #installation-done
  221.       (cat "Die Installation von TurboPrint ist abgeschlossen.\n"
  222.     "Entfernen Sie nun bitte Ihre TurboPrint-Diskette und Starten "
  223.     "Sie Ihren Amiga neu."
  224.     )
  225.    )
  226. ))
  227.  
  228. (if (= @language "english")
  229.  (
  230.    (set #graphics-publisher "GraphicsPublisher")
  231.    (set #druck-manager "PrintManager")
  232.    (set #read-me "ReadMe")
  233.    (set #extra-personalisierung "extra/personalization")
  234.  
  235.    (set #tp-version "TurboPrint Professional 5.01 DEMO (07.01.97)" )
  236.  
  237.    (set #wrongversion
  238.       (cat "Attention: You are using an old version of the 'Installer' software."
  239.            "This installation script needs at least Installer V43.3. "
  240.            "Installer V43.3 is included on this disk.\n\n"
  241.            "If you are using the MCP utility, you must either copy the new Installer"
  242.            "onto your hard drive or switch off MCP."
  243.       )
  244.    )
  245.  
  246.    (set #introduction
  247.       (cat "\nInstallation of TURBOprint Professional 5.01 DEMO\n"
  248.              "    Copyright © 1996,97 IrseeSoft SPCS\n\n"
  249.            "Please choose:\n\n"
  250.       )
  251.    )
  252.  
  253.    (set #introduction-help
  254.       (cat "\n"
  255.       )
  256.    )
  257.  
  258.    (set #need-os2
  259.       (cat "\nTurboPrint Professional 5 needs Kickstart 2.04 or higher\n"
  260.            "To use TurboPrint Professional 5 you need to upgrade your Amiga "
  261.            "(Kickstart ROM + disks). Ask your Amiga dealer for details. "
  262.       )
  263.    )
  264.  
  265.    (set #install "First installation of TURBOprint")
  266.    (set #update  "Install update")
  267.    (set #remove  "Remove from hard disk")
  268.    (set #version "Show version number")
  269.  
  270.    (set #path-prompt0 (cat "Please select the location where the TURBOprint drawer "
  271.               "shall be installed")
  272.    )
  273.  
  274.    (set #path-prompt1 (cat "Please locate the TURBOprint drawer "
  275.               "where the update shall be installed")
  276.    )
  277.  
  278.    (set #path-prompt2 (cat "Please locate the TURBOprint drawer "
  279.               "to be removed")
  280.    )
  281.  
  282. ; additional help to the built-in one
  283.    (set #generic-help
  284.       (cat "Please read the ReadMe-file on this disk!\n"
  285.       )
  286.    )
  287.  
  288.    (set #which-printer
  289.       (cat "Please choose your printer\n"
  290.            "or select 'Help', if your printer is not listed"
  291.       )
  292.    )
  293.    (set #help-printer
  294.       (cat "If your printer is not listed, please read the "
  295.            "printer's user manual to find out which emulations the printer "
  296.            "supports and select the appropriate TurboPrint driver.\n "
  297.            "For Epson ESC/p compatible 9-pin printers choose "
  298.            "'.9-pin', for 24-pin printers choose '.24-pin', for "
  299.            "HP PCL compatible laser printers choose '.laser'\n\n"
  300.       )
  301.    )
  302.  
  303.    (set #another-printer
  304.       (cat "Do you want to install another printer driver?\n"
  305.            "Installed printer drivers:\n\n"
  306.       )
  307.    )
  308.    (set #ask-pryes
  309.       (cat "Yes")
  310.    )
  311.    (set #ask-prno
  312.       (cat "No")
  313.    )
  314.  
  315.    (set #remove-drivers
  316.       (cat "\nYou have chosen 'remove from hard disk'.\n"
  317.            "The TURBOprint drawer will be erased completely. "
  318.            "Please make sure that there are no other programs "
  319.            "or files of you in it!\n"
  320.       )
  321.    )
  322.  
  323.    (set #update-drivers
  324.       (cat "\nUpdating deletes all files in the drawers "
  325.            "'Printers', 'Configs' und 'Turbo' within the TURBOprint "
  326.            "drawer,\n"
  327.            "i.e. old printer drivers and config files.\n" 
  328.            "If you don't want to delete them, choose "
  329.            "'Abort installation'."
  330.       )
  331.    )
  332.  
  333.    (set #removing-drivers
  334.       (cat "\nTURBOprint is being removed..."
  335.       )
  336.    )
  337.    (set #removing-turboprefs
  338.       (cat "If your startup-sequence/user-startup has been changed "
  339.            "by this installation program, it will be restored now."
  340.       )
  341.    )
  342.    (set #adding-turboprefs
  343.       (cat "The following two lines will be added to the "
  344.        "file 's:user-startup': \n"
  345.            "'Assign TURBOprint: <pfad>:TURBOprint'\n"
  346.            "'TURBOprint:TURBOprefs -q'"
  347.       )
  348.    )
  349.    (set #removing-startup
  350.       (cat "If you have changed your startup-sequence "
  351.        "for TURBOprint 1.0/2.0: \n"
  352.        "The commands 'assign TURBOprint: ...' and 'TURBOprint:Turboprefs -q' are "
  353.        "no longer necessary and should be removed.\n"
  354.       )
  355.    )
  356.  
  357.    (set #ask-wbstart20
  358.     (cat "TURBOprint can be loaded automatically on boot-up. "
  359.          "For this purpose the file 'TURBOstart' will be copied "
  360.          "to the WBStart drawer.\n")
  361.    )
  362.  
  363.    (set #wbstart-help
  364.     (cat "\n"
  365.     )
  366.    )
  367.  
  368.    (set #ask-wbyes "Install autostart" )
  369.  
  370.    (set #ask-wbno "No autostart" )
  371.  
  372.    (set #ask-printmanager 
  373.     (cat "Do you want to install the graphics view and print program "
  374.          "GraphicsPublisher?" 
  375.     )
  376.    )
  377.  
  378.    (set #ask-pmyes "Install GraphicsPublisher" )
  379.  
  380.    (set #ask-pmno "Don't install GraphicsPublisher" )
  381.  
  382.    (set #ask-pictures 
  383.     (cat "Do you want to copy the demo pictures to your hard disk?" )
  384.    )
  385.  
  386.    (set #ask-piyes "Copy pictures" )
  387.  
  388.    (set #ask-pino "Don't copy pictures" )
  389.  
  390.    (set #version-info "\nInformation about your system:\n")
  391.    (set #system-version-info "Kickstart %ld.%ld, Workbench %ld.%ld\n")
  392.  
  393.  
  394.    (set #installation-done
  395.       (cat "The installation of TURBOprint has been completed. "
  396.            "Please remove your TurboPrint disk and reboot your Amiga now.\n"
  397.       )
  398.    )
  399. ))
  400.  
  401. ; General initialisation of internal states, options and pre-defined
  402. ; variables go here.
  403.  
  404. (delopts askuser)
  405.  
  406. ; Check whether this system is operating with at least Workbench 2.04 (V37).
  407. ; This is needed for the WBStartup feature and the Printmanager
  408.  
  409. (set kickVersion (shiftright (getversion) 16))
  410.  
  411. (set wbVersion (shiftright (getversion "LIBS:version.library") 16))
  412.  
  413. ; set source directory
  414.  
  415. (set sourcedir (pathonly @icon))
  416.  
  417. ;
  418. (if (< kickVersion 37)
  419.   (
  420.    (message #need-os2)
  421.    (exit (quiet))
  422.   )
  423. )
  424. ;
  425.  
  426. ;Installer-Version prüfen...
  427.  
  428. (if (< @installer-version 2818051)
  429.  (
  430.   (user 2)
  431.   (message #wrongversion)
  432.   (exit (quiet))
  433.  )
  434. )
  435.  
  436. (welcome)
  437.  
  438. ; remember current user level
  439.  
  440. (set old-level @user-level)
  441.  
  442. ; Introduce ourself to the user. Query whether the software shall be
  443. ; installed/updated or removed altogether.
  444.  
  445. (set operationMode
  446.    (askchoice
  447.       (prompt #introduction)
  448.       (choices #install #update #remove #version)
  449.       (help #generic-help #introduction-help @askchoice-help)
  450.    )
  451. )
  452.  
  453. ; Show version number
  454.  
  455. (if (= operationMode 3)
  456.    (
  457.    ; Find out the version of the Kickstart and Workbench and append it to the
  458.    ; version information string.
  459.  
  460.    (set #version-info 
  461.      (cat #version-info 
  462.       (#system-version-info 
  463.  
  464.     (shiftright (getversion) 16)
  465.     (bitand (getversion) 65535)
  466.     (shiftright (getversion "LIBS:version.library") 16)
  467.     (bitand (getversion "LIBS:version.library") 65535)
  468.       )
  469.      )
  470.    )
  471.      
  472.  
  473.    ; Get the version string from this installer script itself!
  474.  
  475.    (set #version-info (cat #version-info #tp-version))
  476.  
  477.    (message #version-info)
  478.    (exit (quiet))
  479.    )
  480. )
  481.  
  482. ; Get path of TurboPrint
  483. ; Set the prompt depending on operationMode
  484.  
  485. (if (= operationMode 0)
  486.  
  487.    (set #path-prompt #path-prompt0 )
  488. )
  489.  
  490. (if (= operationMode 1)
  491.  
  492.    (set #path-prompt #path-prompt1 )
  493. )
  494.  
  495. (if (= operationMode 2)
  496.  
  497.    (set #path-prompt #path-prompt2 )
  498. )
  499.  
  500.  
  501. ; ask for the destination directory
  502.  
  503. (if (not (exists "Work:"))
  504.    (user 1)
  505. )
  506.  
  507. (set target
  508.    (askdir (prompt #path-prompt)
  509.    (help #generic-help @askdir-help)
  510.    (default "Work:") )
  511. )
  512.  
  513. (user old-level)
  514.  
  515. ; do some cleanup if there was an old version of tp installed
  516. ; - no questions aked -
  517. ; try to remove TurboPrint
  518.  
  519. (run (cat (tackon sourcedir "NoTurbo") " -q"))
  520.  
  521. ; Update TurboPrint => remove contents of Printers, Configs and Turbo drawers
  522.  
  523. (if (= operationMode 1)
  524.  (
  525.    (message #update-drivers)
  526.    
  527.       (delete (tackon target (cat "TurboPrint/" #druck-manager)))
  528.       (delete (tackon target (cat "TurboPrint/" #druck-manager ".info")))
  529.       (delete (tackon target "TurboPrint/TurboPrefs"))
  530.       (delete (tackon target "TurboPrint/TurboPrefs.info"))
  531.       (delete (tackon target "TurboPrint/NoTurbo"))
  532.       (delete (tackon target "TurboPrint/NoTurbo.info"))
  533.  
  534.       (delete (tackon target "TurboPrint/Printers") (all))
  535.       (delete (tackon target "TurboPrint/Configs") (all))
  536.       (delete (tackon target "TurboPrint/Turbo") (all))
  537.       (delete (tackon target "TurboPrint/Colors") (all))
  538.       (delete (tackon target "TurboPrint/Drivers") (all))
  539.  )
  540. )
  541.  
  542. ; Remove TurboPrint => remove TurboPrint drawer completely
  543.  
  544. (if (= operationMode 2)
  545.  (
  546.    (message #remove-drivers)
  547.    (working #removing-drivers)
  548.  
  549.    (delete (tackon target "TurboPrint") (all) )
  550.  
  551.    ;Remove TurboStart in WBStartup
  552.  
  553.    (delete "sys:WBStartup/TurboStart.info")
  554.  
  555.    ;Remove TurboPrefs in Prefs
  556.  
  557.    (delete "sys:Prefs/TurboPrefs.info")
  558.  
  559.    ;Inform user
  560.  
  561.    (startup "TurboPrint"
  562.          (prompt #removing-TurboPrefs)
  563.          (help #generic-help @startup-help)
  564.    )
  565.  )
  566. )
  567.  
  568. ;if install or update
  569.  
  570. (if (or (= operationMode 0) (= operationMode 1) )
  571.   (
  572.  
  573. ;Personalisierung
  574.  
  575.    (run (cat (tackon sourcedir #extra-personalisierung) " -q"))
  576.     
  577.  
  578. ;Make TurboPrint drawer
  579.    (makedir   (tackon target "TurboPrint") (infos))
  580.  
  581. ;Copy printer stuff
  582.    (copyfiles
  583.           (help   #generic-help @copyfiles-help)
  584.           (source (tackon sourcedir "Printers"))
  585.              (dest   (tackon target "TurboPrint/Printers"))
  586.               (all)
  587.    )
  588.  
  589. ;Choose default printer(s)
  590.  
  591. (set printer-copy 1)
  592.  
  593. (user 1)
  594.  
  595. (while (= 1 printer-copy)
  596.  (
  597.  
  598.   (set printer-name
  599.    (askfile (prompt #which-printer)
  600.    (help #help-printer @askfile-help)
  601.    (default (tackon target "TurboPrint/Printers"))
  602.    )
  603.   )
  604.  
  605.   (if ( = (tackon target "TurboPrint/Printers") (pathonly printer-name) )
  606. (
  607.   (set printer-name (fileonly printer-name))
  608.  
  609.   (set printer-name (substr printer-name 0 ( - (strlen printer-name) 4) ))
  610.  
  611.   (copyfiles
  612.    (help   #generic-help @copyfiles-help)
  613.    (source (tackon sourcedir "Configs/_Dummy_"))
  614.    (dest   (tackon target "TurboPrint/Configs" ))
  615.    (newname (cat printer-name ".tpc") )
  616.   )
  617.  
  618.   (set printer-list (cat printer-list printer-name "\n"))
  619.  
  620.   (set printer-copy (askbool (prompt (cat #another-printer printer-list) )
  621.          (help @askchoice-help)
  622. ))
  623.    )
  624.   )
  625.  
  626.  )
  627. )
  628.  
  629. (user old-level)
  630.  
  631.  
  632.  
  633. ;user-startup
  634. ;the installer creates a user-startup if it doesn't already exist
  635. ;dont ask user
  636.  
  637.  ;Add assign to user-startup
  638.  
  639.       (startup "TurboPrint"
  640.          (command (cat "Assign TurboPrint: " (tackon target "TurboPrint") )
  641.          )
  642.          (prompt #adding-TurboPrefs)
  643.          (help #generic-help @startup-help)
  644.       )
  645.  
  646. ;Execute assign NOW
  647.  
  648. (makeassign ("TurboPrint") (tackon target "TurboPrint") )
  649.  
  650.  
  651. ;install one of the two autostart options
  652.  
  653.    ;OS 2.x/3.0 => wbstartup drawer
  654.    ;ask user if he/she wants to have the autostart option installed
  655.  
  656.    (if (= 0 (askchoice (prompt #ask-wbstart20)
  657.          (help #wbstart-help @askchoice-help)
  658.          (choices #ask-wbyes #ask-wbno)
  659.          (default 0)
  660.        )    )
  661.  (
  662.  ;Copy TurboStart icon to WBStartup-drawer
  663.  
  664.    (copyfiles
  665.           (help   #generic-help @copyfiles-help)
  666.           (source (tackon sourcedir "extra/TurboStart.info"))
  667.              (dest   "sys:WBStartup" )
  668.    )
  669.  
  670.    ;Put correct paths into TurboStart icon
  671.  
  672.    (tooltype
  673.       (dest "sys:WBStartup/TurboStart")
  674.           (setdefaulttool "TurboPrint:TurboPrefs" )
  675.           (settooltype "QUICK" "")
  676.           (settooltype "DONOTWAIT" "")
  677.       (noposition)
  678.    )
  679.  
  680.  )
  681. )
  682.  
  683. ;install the print manager?
  684.  
  685. (if (>= kickVersion 37)
  686.  (if (= 0 (askchoice (prompt #ask-printmanager)
  687.          (help @askchoice-help)
  688.          (choices #ask-pmyes #ask-pmno)
  689.          (default 0)
  690.          )
  691.     )
  692.   (
  693.    (copyfiles
  694.           (help   #generic-help @copyfiles-help)
  695.           (source (tackon sourcedir #graphics-publisher))
  696.              (dest   (tackon target "TurboPrint") )
  697.           (newname #druck-manager)
  698.    )
  699.    (copyfiles
  700.           (help   #generic-help @copyfiles-help)
  701.           (source (tackon sourcedir #graphics-publisher))
  702.              (dest   (tackon target "TurboPrint") )
  703.               (infos)
  704.    )
  705.    (copylib
  706.          (source (tackon sourcedir "libs/multipic.library"))
  707.          (dest   "LIBS:")
  708.    )
  709.   )
  710.  )
  711. )
  712.  
  713. ;install the pictures?
  714.  
  715. (if (= 0 (askchoice (prompt #ask-pictures)
  716.          (help @askchoice-help)
  717.          (choices #ask-piyes #ask-pino)
  718.          (default 0)
  719.          )
  720.     )
  721.  (
  722.    (copyfiles
  723.           (help   #generic-help @copyfiles-help)
  724.           (source (tackon sourcedir "Pictures"))
  725.              (dest   (tackon target "TurboPrint/Pictures"))
  726.               (all)
  727.           (infos)
  728.    )
  729.  )
  730. )
  731.  
  732.  
  733. ;Do the other stuff
  734.  
  735.    (copyfiles
  736.           (help   #generic-help @copyfiles-help)
  737.           (source (tackon sourcedir "TurboPrefs"))
  738.              (dest   (tackon target "TurboPrint") )
  739.           (infos)
  740.    )
  741.  
  742.  ;Copy TurboPrefs icon to sys:prefs
  743.  
  744.    (copyfiles
  745.           (help   #generic-help @copyfiles-help)
  746.           (source (tackon sourcedir "extra/TurboStart.info"))
  747.              (dest   "sys:Prefs" )
  748.           (newname "TurboPrefs.info" )
  749.    )
  750.  
  751.    ;Put correct paths into TurboStart icon
  752.  
  753.    (tooltype
  754.       (dest "sys:Prefs/TurboPrefs")
  755.           (setdefaulttool "TurboPrint:TurboPrefs" )
  756.           (settooltype "(QUICK)" "" )
  757.       (noposition)
  758.    )
  759.  
  760.    (copyfiles
  761.           (help   #generic-help @copyfiles-help)
  762.           (source (tackon sourcedir "NoTurbo"))
  763.              (dest   (tackon target "TurboPrint") )
  764.           (infos)
  765.    )
  766.  
  767.    (copyfiles
  768.           (help   #generic-help @copyfiles-help)
  769.           (source (tackon sourcedir "Turbo"))
  770.              (dest   (tackon target "TurboPrint/Turbo"))
  771.               (all)
  772.    )
  773.    (copyfiles
  774.           (help   #generic-help @copyfiles-help)
  775.           (source (tackon sourcedir "Extra"))
  776.              (dest   (tackon target "TurboPrint/Extra"))
  777.           (infos)
  778.               (all)
  779.    )
  780.    (copyfiles
  781.           (help   #generic-help @copyfiles-help)
  782.           (source (tackon sourcedir "Docs"))
  783.              (dest   (tackon target "TurboPrint/Docs"))
  784.           (infos)
  785.               (all)
  786.    )
  787.    (copyfiles
  788.           (help   #generic-help @copyfiles-help)
  789.           (source (tackon sourcedir "Temp"))
  790.              (dest   (tackon target "TurboPrint/Temp"))
  791.               (all)
  792.    )
  793.    (copyfiles
  794.           (help   #generic-help @copyfiles-help)
  795.           (source (tackon sourcedir "Libs"))
  796.              (dest   (tackon target "TurboPrint/Libs"))
  797.               (all)
  798.    )
  799.    (copyfiles
  800.           (help   #generic-help @copyfiles-help)
  801.           (source (tackon sourcedir "Configs/_Default_"))
  802.              (dest   (tackon target "TurboPrint/Configs"))
  803.    )
  804.    (copyfiles
  805.           (help   #generic-help @copyfiles-help)
  806.           (source (tackon sourcedir "Colors"))
  807.              (dest   (tackon target "TurboPrint/Colors"))
  808.               (all)
  809.    )
  810.    (copyfiles
  811.           (help   #generic-help @copyfiles-help)
  812.           (source (tackon sourcedir "Drivers"))
  813.              (dest   (tackon target "TurboPrint/Drivers"))
  814.               (pattern "~(#?.fzp)")
  815.    )
  816.    (copyfiles
  817.           (help   #generic-help @copyfiles-help)
  818.           (source (tackon sourcedir #read-me))
  819.              (dest   (tackon target "TurboPrint") )
  820.           (infos)
  821.    )
  822.  
  823.  
  824. ))
  825. (user 1)
  826. (message #installation-done)
  827. (exit (quiet))
  828.  
  829.